home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Utilities / Programming / EnterAct 3.5 / Drag_on Modules / hAWK programs / rnsort < prev    next >
Encoding:
Text File  |  1991-11-24  |  215 b   |  12 lines  |  [TEXT/KEEN]
  1. #rnsort: sort stdout lines in reverse (big to small) numeric order
  2.  
  3. {out[++n] = $0}
  4.  
  5. END {
  6.     m = sort(out, ind, "rn")
  7.     for (i = 1; i <= m; ++i)
  8.         {
  9.         print out[ind[i]]
  10.         delete out[ind[i]] #free up some memory
  11.         }
  12.     }